home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
a_utils
/
perl
/
prlbkxmp.lha
/
ch5
/
truncate.eg
< prev
next >
Wrap
Text File
|
1991-01-08
|
122b
|
8 lines
truncate('logfile',0);
sub truncate {
local(*ZERO);
open(ZERO,"> $_[0]") && close(ZERO);
}
&truncate('logfile');